﻿Imports System.Collections.ObjectModel

''' <summary>
''' A list of ScriptItems
''' </summary>
''' <remarks></remarks>
''' <editHistory></editHistory>
Public Class ScriptItems
    Inherits ObservableCollection(Of ScriptItem)

    Public Sub New()

    End Sub

    ''' <summary>
    ''' Adds a range of items to the list.
    ''' </summary>
    ''' <param name="items"></param>
    ''' <remarks></remarks>
    Public Sub AddRange(ByVal items As IEnumerable(Of ScriptItem))

        'Check the arg
        If items Is Nothing Then Throw New ArgumentNullException("items")

        'Consider each item in the list
        For Each Item As ScriptItem In items

            'Add it
            Me.Add(Item)
        Next

    End Sub

End Class
